home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / TUNES DEMO 2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  4KB  |  42 lines
  1. 10  REM *************************
  2. 11  REM *   T.U.N.E.S  DEMO 2   *
  3. 12  REM * BY S. SCOTT ZIMMERMAN *
  4. 13  REM *  COPYRIGHT (C)  1983  *
  5. 14  REM *  BY MICROSPARC, INC.  *
  6. 15  REM *  LINCOLN, MA.  01773  *
  7. 16  REM *************************
  8. 120  IF  PEEK(37403) = 169  AND  PEEK(38385) = 0  AND  PEEK(1014) = 84  AND  PEEK(1015) = 146  THEN 160: REM  CHECK IF 'TUNES' IS IN PLACE
  9. 140  PRINT  CHR$(4);"BRUN TUNES"
  10. 160  TEXT : HOME : VTAB 2: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **"
  11. 180  VTAB 6:A$ = " INVENTIO VIII ": HTAB (41 - LEN(A$))/2: INVERSE : PRINT A$: NORMAL : PRINT :A$ = "BY JOHANN SEBASTIAN BACH": HTAB (41 - LEN(A$))/2: PRINT A$
  12. 200  PRINT : PRINT :A$ = "PROGRAMMED BY": HTAB (41 - LEN(A$))/2: PRINT A$:A$ = "S. SCOTT ZIMMERMAN": PRINT : HTAB (41 - LEN(A$))/2: PRINT A$
  13. 220  PRINT : PRINT :A$ = "WITH": HTAB (41 - LEN(A$))/2: PRINT A$:A$ = "T.U.N.E.S.": PRINT : HTAB (41 - LEN(A$))/2: INVERSE : PRINT A$: NORMAL 
  14. 240  PRINT :A$ = "TONE UTILITY AND NOTE ENCODING SYSTEM": HTAB (41 - LEN(A$))/2: PRINT A$
  15. 260 X = 126: VTAB 23: CALL  -868: PRINT "WHAT TEMPO (IN BEATS/MIN)? ";X;: POKE 36,( PEEK(36) -3): INPUT "";X$: VTAB 23: HTAB 1: CALL  -868
  16. 280  IF X$ = ""  THEN 380
  17. 300 X =  VAL(X$)
  18. 320  IF X >255  THEN X = 255
  19. 340  IF X <61  THEN X = 61
  20. 360  REM     NOTES TO "BACH'S INVENTIO VIII":
  21. 380  & RETX: & FE3S: & A4: & F3: & C4: & F3: & FE4L: & ES: & D: & C: & D: & C: & B!: & A: & B!: & A: & G3: REM MEASURES 1-2
  22. 400  & FES: & A4: & C: & A: & F: & C: & AS5L: & C: & B!: & C: & A: & C: & B!: & C: & A: & C: & B!: & C: REM MEASURES 3-4
  23. 420  & F4: & A5: & G4: & A5: & F4: & A5: & G4: & A5: & F4: & A5: & G4: & A5: & D4: & F: & E: & F: & D: & F: & E: & F: & D: & F: & E: & F: REM MEASURES 5-6
  24. 440  & BES: & G3: & D4: & B: & F: & D: & GSL: & A5: & G4: & F: & E: & F: & E: & D: & C: & D: & C: & B!: REM MEASURES 7-8
  25. 460  & AES: & DSL: & C: & B: & C: & B: & A: & G3: & A4: & G3: & F: & E: & F: & E: & D: & CEL: & CS4: & B: & CES: & EE3L: REM MEASURES 9-10
  26. 480  & FES: & C4: & E3: & C4: & D3: & B4: & CQL: & RQ: & : & RE: & CES: & E: & C: & G: & C: REM MEASURES 11-13
  27. 500  & CE5L: & BS: & A: & G4: & A5: & G4: & F: & E: & F: & E: & D: & C: & B!: & C: & A5: & C4: & A5: & B!4: & A5: & C4: & A5: & A4: & A5: REM MEASURES 14-15
  28. 520  & B!E4S: & G3: & B!4: & G3: & D4: & G3: & GEL4: & FS: & E!: & D: & E!: & D: & C: & B!: & C: & B!: & A: & GES3: & B!4: & D: & B!: & G: & D: REM MEASURES 16-18
  29. 540  & B!E5S: & C#4: & B!5: & C#4: & B!5: & C#4: & D: & A: & F: & D: & A5: & F4: REM MEASURES 19-20
  30. 560  & GSL: & F: & G: & B!5: & C4: & B!5: & D4: & B!5: & E4: & B!5: & C4: & B!5: & F4: & E: & F: & A5: & B4: & A5: & C#4: & A5: & D4: & A5: & B4: & A5: REM MEASURES 21-22
  31. 580  & E4: & D: & E: & G: & A: & G: & B: & G: & C#: & G: & A: & G: & FEL: & D: & B!ES: & D: & G3: & F4: REM MEASURES 23-24
  32. 600  & EEL: & C: & AES: & C: & F3: & E!4: & DSL: & F: & E!: & F: & D: & F: & E!: & F: & D: & F: & E!: & F: & B!: & D: & C: & D: & B!: & D: & C: & D: & B!: & D: & C: & D: REM MEASURES 25-27
  33. 620  & G3: & B!4: & A: & B!: & G3: & B!4: & A: & B!: & G3: & B!4: & A: & B!: & EE3S: & C: & G: & E: & B!4: & G3: REM MEASURES 28-29
  34. 640  & CS4L: & D: & C: & B!: & A: & B!: & A: & G3: & F: & G: & F: & E!: & DES: & GSL: & F: & E: & F: & E: & D: & C: & D: & C: & B!: REM MEASURES 30-31
  35. 660  & A: & B!: & A: & G2: & FE: & FS3: & E: & FES: & A: & B!: & FET(X -10): & AET(X -20): & FET(X -30): & G2ET(X -45): & E3: & FQL: & RQHQ: REM MEASURES 32-33
  36. 680  REM   END OF BACH'S INVENTIO VIII
  37. 700  VTAB 23: CALL  -868: PRINT "DO YOU WANT TO HEAR IT AGAIN? (Y/N)"
  38. 720  VTAB 23: HTAB 37: INVERSE : PRINT " ";: & CT5ST255: & RW: HTAB 37: NORMAL : PRINT " ": IF  PEEK( -16384) <128  THEN  & GT4: & RW: IF  PEEK( -16384) <128  THEN 720
  39. 740 X =  PEEK( -16384): POKE  -16368,0
  40. 760  IF X = 217  THEN 260
  41. 780  IF X = 206  THEN  END 
  42. 800  GOTO 720